home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / biz / demo / imagefxdemo.dms / imagefxdemo.adf / rexx / ReqDemo.ifx < prev    next >
Text File  |  1992-09-24  |  1KB  |  57 lines
  1. /*
  2.  * $VER: ReqDemo 1.00.00 (24.9.92)
  3.  *
  4.  * Arexx program for the Montage image processing system.
  5.  * Written by Thomas Krehbiel
  6.  *
  7.  * Demonstration of all the requesters available through Arexx.
  8.  *
  9.  */
  10.  
  11. OPTIONS RESULTS
  12.  
  13. Message 'Requester demonstration...'
  14.  
  15. RequestNotify 'Notification requester.'
  16.  
  17. RequestResponse 'Response requester.'
  18. IF rc ~= 0 THEN RequestNotify "There's no stopping me now!"
  19.  
  20. RequestNumber '"Number requester:"' 10
  21. IF rc = 0 THEN RequestNotify 'You chose' result
  22.  
  23. RequestSlider '"Slider requester:"' 30 90 40
  24. IF rc = 0 THEN RequestNotify 'You chose' result
  25.  
  26. RequestString '"String requester:"' '"Some text"'
  27. IF rc = 0 THEN RequestNotify 'You chose' result
  28.  
  29. RequestFile '"Pick a file..."' 'RAM:' 'Default.file' '#?.junk'
  30. IF rc = 0 THEN RequestNotify 'You chose' result
  31.  
  32. Gadget.1 = 'List Requester:'
  33. Gadget.2 = 'Bread'
  34. Gadget.3 = 'Veal'
  35. Gadget.4 = 'Eggs'
  36. Gadget.5 = 'Corn'
  37. Gadget.6 = 'Beans'
  38.  
  39. ListRequest 6 Gadget
  40. IF rc = 0 THEN RequestNotify 'You chose' Gadget.result
  41.  
  42. Gadget.1 = 'I/100/16/Width:/320'
  43. Gadget.2 = 'I/100/30/Height:/200'
  44. Gadget.3 = 'S/100/45/Name:/Untitled'
  45. Gadget.4 = 'C/100/60/Depth:/4/One/Two/Three/Four'
  46. Gadget.5 = 'X/100/74/Use Death Ray?/1'
  47.  
  48. ComplexRequest '"Complex Requester, Dude!"' 5 Gadget 350 105
  49. IF rc ~= 0 THEN DO
  50.    RequestNotify 'Cancelled.'
  51.    END
  52. ELSE DO
  53.    RequestNotify RESULT.1 RESULT.2 RESULT.3 RESULT.4 RESULT.5
  54.    END
  55.  
  56. EXIT 0
  57.